From f91238ac7af99d0bbd4db9abd23a778c47150e02 Mon Sep 17 00:00:00 2001 From: justbur Date: Sun, 12 Jul 2015 22:03:17 -0400 Subject: [PATCH] Remove some old code --- which-key.el | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/which-key.el b/which-key.el index 8d1f0391d36..e66e789379a 100644 --- a/which-key.el +++ b/which-key.el @@ -637,8 +637,7 @@ removing a \"group:\" prefix." "Take a list of (key . desc) cons cells in UNFORMATTED, add faces and perform replacements according to the three replacement alists. Returns a list (key separator description)." - (let ((max-key-width 0) - (sep-w-face (propertize which-key-separator 'face 'which-key-separator-face))) + (let ((sep-w-face (propertize which-key-separator 'face 'which-key-separator-face))) (mapcar (lambda (key-desc-cons) (let* ((key (car key-desc-cons)) @@ -650,9 +649,7 @@ alists. Returns a list (key separator description)." desc which-key-description-replacement-alist)) (desc (which-key/maybe-replace-key-based desc keys)) (key-w-face (which-key/propertize-key key)) - (desc-w-face (which-key/propertize-description desc)) - (key-width (length (substring-no-properties key-w-face)))) - (setq max-key-width (max key-width max-key-width)) + (desc-w-face (which-key/propertize-description desc))) (list key-w-face sep-w-face desc-w-face))) unformatted))) -- 2.30.2